unit PawnList;

interface

uses Pawn, Contnrs;

 TPawnList = class (TObjectList)
  private
   FOwnsObjects: Boolean;
  protected
   function GetItem(Index: Integer): TElementDiagramu;
   procedure SetItem(Index: Integer; AObject: TElementDiagramu);
  public
   function Add(AObject: TElementDiagramu): Integer;
   function Remove(AObject: TElementDiagramu): Integer;
   function IndexOf(AObject: TElementDiagramu): Integer;
   procedure Insert(Index: Integer; AObject: TElementDiagramu);
   property OwnsObjects: Boolean read FOwnsObjects write FOwnsObjects;
   property Items[Index: Integer]: TElementDiagramu read GetItem write SetItem; default;
  end;

implementation

end.
